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2 /* There are 8 FETs in the model and I want to array to index from 1 to 8 */ 

3 #defme NUM_CKLATCH_FETS 7 

4 #define NUM_PASSCKT_FETS 7 

5 #define ALL_SPICE_FET_PARAMETERS \ 

6 fprintf(MYDECK," (ml_w mlj m2_w m2_l m3_w m3_l m4_w m4_l m5_w m5_l m6_w m6_l)\n") ; 

7 void declare_vth_ckt(MYDECK, Imodel) 

8 Fn.E* MYDECK ; 

9 int lmodel[NUM_CKLATCH_FETS] ; 

10 { 

1 1 fprintf(MYDECK,".subckt vth_ckt 1 00 %%\"GND\""); 

12 ALL_SPICE_FET_PARAMETERS; 

13 fprintf(MYDECK,"Ml 3 3 0 0 N%s L=ml_l*le-6 W=ml_w*le-6 AD=1.5 AS=1.5 PD=1.5 PS=1.5\n", lmodel[l] ? 

14 "L" ' "")■ 

15 fprintf(MYDECK,"M2 3 3 100 0 P%s L=m2J*le-6 W=m2_w*le-6 AD=1.5 AS=1.5 PD=1.5 PS=1.5\n", lmodel[2] 

16 ?"L":""); 

17 fprintf(MYDECK,".ends vth_ckt\n"); 

18 } 

19 #defme NOPASSFET_R 1 .Oe-3 

- 20 void declare_passfet_ckt(MYDECK, ckt name, ppass fets, npass fets) 

; 5 21 FILE* MYDECK ; char* ckt_name ; elem_pr npass_fets[NUM_PASSCKT_FETS], 

22 ppass_fets[NUM_PASSCKT_FETS] ; 

:5 23 { 

^■^ t 24 int i, left, right, left_portnum, levels = 0; 

O 25 /* determine the number of passfet levels. */ 

W 26 for (i = 1 ; i < NUM_PASSCKT_FETS; { if ((npass_fets[i] != NULL) || (ppass_fets[i] != NULL)) levels-H- ; } 

ij! 27 if(levels==0)left_portnum = 3; 

28 else left_portnum = levels + 2 ; 

! □ 29 fprintf(MYDECK,".subckt %s 1 00 2 %d %%\"GND\" \n", ckt_name, left_portnum) ; 

m 30 if(levels==0) 

|=s 31 /* No pass fets, so use a tiny Resistor. */ 

iJI 32 fprintf(MYDECK,"R5 3 2 %.2e\n", NOPASSFET_R); 

Q 33 else 

□ 34 for (i = 1 ; i < NUM_PASSCKT_FETS; 1++) { 

35 left = i + 2;right = i+ 1 ; 

36 if (npass_fets[i]) 

37 fprintf(MYDECK,"M%d %d 100 %d 0 N%s L=%.2f* le-6 W=%.2P le-6 AD=1 .5 AS=1 .5 PD=1 .5 PS=1 .5\n", 

38 2*i - 1 , left, right, npass_fets[i]->len > CheckLatchLongNLength_ReqERC ? "L" : "", 

39 npass_fets[i]->len, npass_fets[i]->wid); 

40 if(ppass_fets[i]) 

41 fprintf[MYDECK,"M%d %d 0 %d 0 P%s L=%.2f*le-6 W=%.2f^le-6 AD=1.5 AS=1.5 PD=1.5 PS=1.5\n", 

42 2*i, left, right, ppass_fets[i]->len > CheckLatchLongPLength_ReqERC ? "L" : "" , 

43 ppass_fets[i]->len, ppass_fets[i]->wid); 

44 } 

45 fprintf(MYDECK,".ends %s\n", ckt_name); 

46 } 

47 void declare_setO_ckt(MYDECK, Imodel) 

48 FILE* MYDECK ; int Imodel [NUM_CKLATCH_FETS] ; 

49 { 

50 fprintf(MYDECK,".subckt setO_ckt 1 00 %%\"GND\"") ; 

51 ALL_SPICE_FET_PARAMETERS 

52 fprintf(MYDECK,"Ml 4 3 0 0 N%s L=mlJ*le-6 W=ml_w*le-6 AD=1.5 AS=1.5 PD=1.5 PS=I.5\n", 

53 lmodel[l] ? "L" : ""); 

54 fprintfl[MYDECK,"M2 4 3 100 0 P%s L=m2_l*le-6 W=m2_w*le-6 AD=1.5 AS=1.5 PD=1.5 PS=1.5\n", 

55 lmodel[2] ? "L" : ""); 

56 fprintf(MYDECK,"M4 3 0 100 0 P%s L=m4_l* le-6 W=m4_w* le-6 AD=1 .5 AS=1 .5 PD=1 .5 PS=1 .5\n", 

57 lmodel[4] ? "L" : ""); 



HP No 10992563 



11 



# 





1 




2 




3 




4 




5 




6 




7 




8 




9 




10 




11 




12 




13 




14 




15 




16 




17 




18 




19 




20 


Q 


21 




22 




23 




24 


ill- 


25 


ij: 


26 


iij; 


27 




28 




29 


Q 


30 


m 


31 




32 


in 


33 




34 


^3 


35 




36 




37 




38 




39 




40 




41 




42 




43 




44 




45 




46 




47 




48 




49 




50 




51 




52 




53 




54 




55 




56 




57 




58 



lprintf(MYDECK,"XO 100 2 3 %%\"GND\" pulldown_passfet_ckt \n") ; 

fi3rintf(MYDECK,"M5 2 100 0 0 N%s L=ni5J*le-6 W=m5_w*le-6 AD=1.5 AS=1.5 PD=1.5 PS-1.5\n", 

lmodel[5] ? "L" : ""); 
fiDrintf(MYDECK,".ends setO_ckt\n"); 

} 

void declare_setl_ckt(MYDECK, Imodel) 

FE.E* MYDECK ; int lmodel[NUM_CKLATCH_FETS] ; 

{ 

fprintf(MYDECK,".subckt setl_ckt 100 %%\"GND\"") ; 
ALL_SPICE_FET_PARAMETERS 

fprintf(MYDECK,"Ml 4 3 0 ON%s L=ml_l*le-6 W=itil_w*le-6 AD=1.5 AS=1.5 PD=1.5 PS=1.5V', 

lmodel[l] ? "L" : ""); _ ^ „ 

fprintf(MYDECK,"M2 4 3 100 0 P%s L=m2_l*le-6 W=m2_w*le-6 AD=1.5 AS=1.5 PD=1.5 PS-1.5\n , 

lmodel[2] ? "L" : ""); 

fprintf(MYDECK,"M3 3 100 0 0 N%s L=m3J*le-6 W=m3_w*le-6 AD=1.5 AS=1.5 PD=1.5 PS-1.5\n , 
lmodel[3] ? "L" : ""); 

fprintf(MYDECR,"XO 1 00 2 3 %%\"GND\" pullup_passfet_ckt \n") ; 

fprintf(MYDECK,"M6 2 0 100 0 P%s L=m6_l*le-6 W=m6_w*le-6 AD=1.5 AS=1.5 PD=1.5 PS-1.5\n", 

lmodel[6] ? "L" : ""); 
fprintf(MYDECK,".endssetl_ckt\n"); 

} 

void add_vth_ckt_to_deck(MYDECK, m_w, m_l) 

FILE *MYDECK; double m_w[NUM_CKLATCH_FETS] ; double m_l[NUM_CKLATCH_FETS] ; 
{ 

fprintf(MYDECK,"XO 100 %%\"GND\" vth_ckt ("); 
fprintf(MYDECK,"%.2f %.2f ",m_w[l], m_l[l]) ; 
fprintf(MYDECK,"%.2f %.2f ",m_w[2], m_l[2]) ; 
fprintf(MYDECK,"%.2f %.2f ",m_w[3], m_l[3]) ; 
fprintf(MYDECK,"%.2f %.2f ",m_w[4], in_l[4]) ; 
fprintf(MYDECK,"%.2f %.2f ",m_w[5], m_l[5]) ; 
fprintf(MYDECK,"%.2f %.2f ",m_w[6], m_l[6]) ; 

fprintf(MYDECK,")\n") ; 

} 

void add_setO_ckt_to_deck(MYDECK, m_w, m_l) 

FILE *MYDECK; double m_w[NUM_CKLATCH_FETS] ; double m_l[NUM_CKLATCH_FETS] ; 
{ 

fprintf(MYDECK,"Xl 100 %%\"GND\" setO_ckt ("); 
fprintf(MYDECK,"%.2f %.2f ",m_w[l], m_l[l]) ; 
fprintf(MYDECK,"%.2f %.2f ",m_w[2], m_l[2]) ; 
fprintf(MYDECK,"%.2f %.2f ",m_w[3], m_l[3]) ; 
fi3rintf(MYDECK,"%.2f %.2f ",m_w[4], mj[4]) ; 
fprintf(MYDECK,"%.2f %.2f ",m_w[5], mj[5]) ; 
fi3rintf(MYDECK,"%.2f %.2f ",m_w[6], m_l[6]) ; 
fprintf(MYDECK,")\n") ; 

} 

void add_setl_ckt_to_deck(MYDECK, m_w, m_l) 

FILE *MYDECK; double m_w[NUM_CKLATCH_FETS] ; double mJ[>aJM_CKLATCH_FETS] ; 

^ fprintf(MYDECK,"X2 100 %%\"GND\" setl_ckt ("); 
fprintf(MYDECK,"%.2f %.2f ",ni_w[l], ni_l[l]) ; 
^rintf(MYDECK,"%.2f %.2f ",m_w[2], mj[2]) ; 
fprintf(MYDECK,"%.2f %.2f ",in_w[3], m_l[3]) ; 
fi3rintf(MYDECK,"%.2f %.2f ",ni_w[4], m_l[4]) ; 
fprintf(MYDECK,"%.2f %.2f ",m_w[5], mj[5]) ; 
fprintf(MYDECK,"%.2f %.2f ",m_w[6], mj[6]) ; 
fprintf(MYDECK,")\n") ; 

/* Return TRUE if this latch has tristate feedback. */ 
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1 int latch_has_tristate_feedback(node) node_pr node ; 

2 { 

3 node_pr output, inv_output, tsinv_node ; 

4 elem_pr elem ; 

5 if (!NIsLatch{node)) return FALSE ; 

6 tsinv node = NTriStateInvOf(node) ; 

7 for_gate_elems(elem, node) { 

8 output = get_output(elem) ; 

9 if (!output) continue ; 

10 inv_output = NStatInvOf(output) ; 

1 1 if (NSame(inv_output, node) && NSame(output, tsinv_node)) { return TRUE ; } 

12 } end_gate_elems 

13 return FALSE; 

14 } 

15 /* Given a latch node return the tristate feedback node. */ 

16 node_prget_tristate_feedback(node) 

17 node_prnode; 

18 { 

1 9 elem_pr elem ; 

20 node_pr output, inv output, tsinv node ; 
'5 21 if(!NIsLatch(node)) return NULL; 

22 tsinv node = NTriStateInvOf(node) ; 

23 for_gate_elems(elem, node) { 
!^ 24 output = get_output(elem) ; 

25 if (loutput) continue ; 

l'^- 26 inv_output = NStatInvOf(output) ; 

27 if(NSame(inv_output, node) &&NSame(output,tsinv_node)){ return output;} _ 

•T<- 28 } end gate elems 

29 return NULL; 

U 30 } . ^ 

i p 3 1 /* Find the FET widths and lengths for this node. Return a non zero if there is a problem running. */ 

i=a 32 #defineABSENT_FEEDBACK_FET_L_MULT20.0 

iH 33 int find_checklatchJatchfets(node, m_w, mj) 

i J 34 node_pr node ; double *m_w, *m_l ; 

O 35 { 

36 elem_pr elem, nelem; 

37 node _pr output, inv_output, inv_node, tsinv node, gate, inv _gate, ngate, inv_ngate, ts_feedback, other_side; 
3 8 int has_tsfeedback, has_single_feedback, has_inv_feedback ; 

3 9 inv_node = NStatInvOf(node) ; 

40 tsinv_node = NTriStateInvOf(node) ; 

41 has_tsfeedback = latch_has_tristate_feedback(node) ; 

42 has_single_feedback = (linv node && Itsinv node) ? TRUE : FALSE ; 

43 has_inv_feedback = (!has_tsfeedback && !has_single_feedback) ? TRUE : FALSE ; 

44 /* Find the forward inverter FETs. */ 

45 if (has single feedback) { 

46 for_gate_elems(elem, node) { 

47 output = get_output(elem) ; 

48 if (loutput) continue ; 

49 inv_output = NStatInvOf(output) ; 

50 if (NSame(inv_output, node)) { 

5 1 if (ETypelsP(elem)) { m_w[2] = elem->wid ; m_l[2] = elem->len ; } 

52 if (ETypelsN(elem)) { m_w[l] = elem->wid ; m_l[l] = elem->len ; } 

53 } 

54 } end_gate_elems 

55 } 

56 if (has_inv_feedback || has_tsfeedback) { 

57 for_gate_elems(elem, node) { 
5 8 output = get_output(elem) ; 
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1 if (! output) continue ; 

2 inv_output = NStatInvOf(output) ; 

3 if ( (NSame(inv_output, node) && NSame(output, inv_node)) || 

4 (NSame(inv_output, node) && NSame(output, tsinv_node)) ) { 

5 if (ETypelsP(elem)) { m_w[2] = elem->wid ; nij[2] = elem->len ; } 

6 if (ETypelsN(elem)) { m_w[l] = elem->wid ; m_l[l] = elem->len ; } 

7 } 

8 } end_gate_elems 

9 } 

1 0 if (m_w[l] == 0 II m_w[2] = 0) return 1 ; 

11 /* Find the feedbacic inverter FETs. */ 

12 if (has single feedback) { 

1 3 for_chan_fets(eIem, node) { 

14 gate = EGate(elem) ; 

1 5 inv_gate = NStatInvOf(gate) ; 

16 if (NSame(node, inv_gate)) { 

17 if (ETypelsP(elem)) { m_w[4] = elem->wid ; m J [4] = elem->l en ; } 

1 8 if (ETypelsN(elem)) { m_w[3] = elem->wid ; m_l[3] = elem->len ; } 

19 } 

=^20 } end chan fets 

S 21 } 

{Z 22 if (hasjsfeedback) { 

!= 23 ts_feedback = get_tristate_feedback(node) ; 

■ p 24 for_chan_fets(eIem, node) { 

:il 25 gate = EGate(elem) ; 

26 inv gate = NStatInvOf(gate) ; 

; i 27 if (NSame(node, inv_gate) && NSame(ts_feedback, gate) && ETypelsP(elem)) { 

' 28 m_w[4] = elem->wid ; m_l[4] = elem->len ; 

% 29 } 

•3 30 if (ETypelsN(eleni)) { 

' 31 /* Type I tristate inverter. */ 

32 if (NSame(node, inv_gate) && NSame(ts_feedback, gate)) { m_w[3] = elem->wid ; m_l[3] = elem->len ; } 

iH 33 /* Type II tristate inverter. */ 

Q 34 else{ 

13 35 other side = EOtherChan(elem, node) ; 

36 nested_for_chan_elems(neIem, other side) { 

37 if (ETypelsN(nelem)) { 

38 ngate = EGate(nelem) ; 

39 inv_ngate = NStatInvOf(ngate) ; 

40 if (NSanie(node, inv_ngate) && NSame(ts_feedback, ngate)) { m_w[3] = nelem->wid ; m_l[3] = nelem->len ; } 

41 } 

42 } nested_end_chan_elems 

43 } 

44 } 

45 } end chan fets 

46 } 

47 if (has_inv_feedback) { 

48 for_chan_fets(elem, node) { 

49 gate = EGate(elem) ; 

50 inv_gate = NStatInvOf(gate) ; 

51 if (NSame(node, inv_gate) && NSame(inv_node, gate)) { 

52 if (ETypelsP(elem)) { m_w[4] = eleni->wid ; mj[4] = elem->len ; } 

53 if(ETypeIsN(elem)){m_w[3] = elem->wid;m_l[3] = elem->len;} 

54 } 

55 } end chan fets 

56 } 

57 /* Some latches have missing Feedback FETs */ 

58 if (m_w[3] = 0 && m_w[4] = 0) return 1 ; 
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if (m_w[3] = 0) { m_w[3] = MinGateZ_ReqERC ; m_l[3] = ABSENT_FEEDBACK_FET_L_MULT * 
DeviceL ReqERC ; } 

if (tn_w[4] == 0) { m_w[4] = MinGateZ_ReqERC ; m_l[4] = ABSENT_FEEDBACK_FET_L_MULT 
DeviceL_ReqERC ; } 
return 0 ; 

/* For a given tree, write into the deck the element names. This is a recursive routine. */ 
void add_fet_tree_comments_to_deck(DECK, dlnode_ptr) 
FE.E* DECK ; dlnodeptr dlnode_ptr; 
{ 

charmessage[MAXSTRING] ; 
elem_pr this_elem, parallel elem ; 
/* Go across */ 

if (dlnode_ptr->next) { add_fet_tree_comments_to_deck(DECK, dlnode_ptr->next); }■ 

/* Go down if FETs exist there */ ~~ 

if (dlnode _ptr->down) { add_fet_tree_comments_to_deck(DECK, dlnode_ptr->down); } 

this elem = dlnode_ptr->elem ; 

sprintf(message, "%s gate: %s source: %s drain: %s width: %.4f' , 
this_elem->name, this_elem->gate->name, this_elem->source->name, this_elem->drain->name, 

this_elem->wid) ; 
add_comment_to_deck(DECK, message) ; 

/* A channel parallel element will not show up in the tree, but will be used in effective_w_calc_from_tree ♦/ 
parallel_elem = this_elem->chan_parallel ; 
if (parallel_elem && !ESame(parallel_elem, this_elem)) { 
sprintf(message, "%s gate: %s source: %s drain: %s width: %.4f' , 
parallel_elem->name, parallel_elem->gate->name, parallel_elem->source->name, parallel_elem->drain->name, 

parallel_elem->wid) ; 

add_comment_to_deck(DECK, message) ; 

} 

/* Annotate the deck with the FETs used to in build _generic_tree. Also record in the deck all the pass fets 
included in the puUup and pulldown models. */ 

void add_checklatch_coniments_to_deck(MYDECK, pulldown_ppass_fets, pulldown_npass_fets, 
pullup_ppass_fets, 

pullup_npass_fets, ndriver_node, pdrivernode) 

elem_pr pulldown_npass_fets[NXJM_PASSCKT_FETS], pulldown_ppass_fets[NUM_PASSCKT_FETS] ; 
elem_pr pullup_npass_fets[NUM_PASSCKT_FETS], pullup_ppass_fets[NUM_PASSCKT_FETS] ; 
node_pr pdriver node, ndriver node ; FILE* MYDECK ; 
{ 

elem_pr elem, thiselem; 

dlnodeptr nfet_tree_ptr,pfet_tree_ptr; 

double nfet_max_l_over_w,nfet_min_l_over_w,nfet_in_parallel ; 
double pfet_max_l_over_w,pfet_min_l_over_w,pfet_in_parallel; 
int node type flag, i; 
char message[MAXSTRING] ; 

add_comment_to_deck(MYDECK, " PuUup path passfets info: ") ; 
if (pullup_npass_fets[l] && pullup_ppass_fets[l]) 

add_comment_to_deck(MYDECK, " Latch puUup passfet structure: COMPLIMENTARY ") ; 
else if (pullup_npass_fets[l]) 

add_comment_to_deck(MYDECK, " Latch puUup passfet structure: NFET ") ; 
else if (pullup_ppass_fets[l]) 

add_comment_to_deck(MYDECK, " Latch puUup passfet structure: PFET ") ; • 

else 

add_comment_to_deck(MYDECK, " Latch puUup passfet structure: NONE ") ; 
for (i = 1 ; i < NUM_PASSCKT_FETS; { 
if (pullup_npass_fets[i]) { 
this_elem = pullup_npass_fets[i] ; 

sprintf(message, "%s gate: %s source: %s drain: %s width: %.4f' , 
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1 this_elem->name, this_elem->gate->name, this_elem->source->naine, this_elem->drain->name, 

2 this_elem->wid) ; 

3 add_comment_to_deck(MYDECK, message) ; 

4 } " 

5 if (pullup_ppass_fets[i]) { 

6 this_elem = pullup_ppass_fets[i] ; 

7 sprintf(message, "%s gate: %s source: %s drain: %s width: %.4f ', 

8 this_elem->name, this_eiem->gate->name, this_elem->source->name, tiiis_eiem->drain->name, 

9 this_elem->wid) ; 

10 add_comment_to_decic(MYDECK, message) ; 

11 } 

12 } 

1 3 add_comment_to_deck(MYDECK, " Pulldown path passfets info: ") ; 

14 if (pulldown_npass_fets[l] && pulldown_ppass_fets[l]) 

1 5 add_comment_to_deck(MYDECK, " Latch pulldown passfet structure: COMPLIMENTARY ") ; 

16 else if (pulldown_npass_fets[l]) 

17 add_comment_to_deck(MYDECK, " Latch pulldown passfet structure: NFET ") ; 

18 else if (pulldown_ppass_fets[l]) 

1 9 add_comment_to_deck(MYDECK, " Latch pulldown passfet structure: PFET ") ; 

20 else 

21 add_comment_to_deck(MYDECK, " Latch pulldown passfet structure: NONE ") ; 

22 for (i = 1 ; i < NUM^PASSCKT_FETS; i++) { 

23 if (pulldown_npass_fets[i]) { 

24 this elem = pulldown_npass_fets[i] ; 

25 sprintf(message, "%s gate: %s source: %s drain: %s width: %.4f' , this_elem->name, this_elem->gate->name, 
:~ 26 this_elem->source->name, this_elem->drain->name, this_elem->wid) ; 

" 27 add_comment_to_deck(MYDECK, message) ; 

28 } 

29 if (pulldown_ppass_fets[i]) { 

30 this elem = pulldown_ppass_fets[i] ; 

31 sprintf(message, "%s gate: %s source: %s drain: %s width: %.4f' , this_elem->name, this_elem->gate->name, 
1=^ 32 this_elem->source->name, this_elem->drain->name, this_elem->wid) ; 

iJ| 33 add_comment_to_deck(MYDECK, message) ; 

34 } 

!□ 35 } 

36 /* Include as comments all the FETs that make up the generic trees. */ 

37 nfet_tree_ptr = buiId_generic_tree(ndriver_node,NTYPE,0,&node_type_flag); 

38 pfet_tree_ptr = build_generic_tree(pdriver_node,PTYPE,0,&node_type_flag); 

39 if (nfet_tree_ptr) { 

40 add_comment_to_deck(MYDECK, "NFET driver values : ") ; 

41 add_fet_tree_comments_to_deck(MYDECK,nfet_tree_ptr); 

42 free_fet_tree{nfet_tree_ptr,nfet_tree_ptr); 

43 } 

44 else { add_comment_to_deck(MYDECK, "Using Ported NFET driver value") ; } 

45 if (pfet_tree_ptr) { 

46 add_comment_to_deck(MYDECK, "PFET driver values:") ; 

47 add_fet_tree_comments_to_deck(MYDECK,pfet_tree_ptr); 

48 free_fet_tree(pfet_tree_ptr,pfet_tree_ptr); 

49 } 

50 else { add_comment_to_deck(MYDECK, "Using Ported PFET driver value") ; } 

51 } 

52 /* Given two nodes, find one P and one N pass fet between these two nodes if there are any. If there are more 

53 than one pair of N and P, then this routine returns the first two that it finds. */ 

54 void find_passfets_between_nodes(node, other_node, n elem, p elem) 

55 node_pr node, other node ; elem_pr *n_elem, *p_elem ; 

56 { 

57 elem_pr elem ; 

58 node_pr other_node2 ; 
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♦n elerti = *p_elem = NULL ; 
for_chan_elems(elem, other_node) { 
if (EIsPassFet(elem)) { 

other_node2 = EC)therChan(eleni,other_node) ; 
if (NSame(other_node2,node)) { 
if (ETypelsN(elem)) *n_elem = elem ; 
if (ETypelsP(elem)) *p_elem = elem ; 
} 

} 

end chan elems } 

/* Given a latch node, find the node that in turn provide the worst case pullup toVDD or the worst case 
pulldown to GND. Assume that this node is a pass fet output. This routine calls itself until it is on a node which 
is a passfet input and not a passfet output. It keeps track of the current worst case driver and updates a higher 
level record of the worst case driver's characteristicsas it goes along. Search only in the direction of signal flow. 
*/ 

void find_checklatch_driver_r(node, wc_node, type, wc_width, wcjoverw, ppass_fets, npass_fets, level, 
wc_ppass_fets, wcnpassfets, wclevels) 

node_pr node ; node_pr* wc node ; int type, level ; int *wcjevels ; 

elem _pr *ppass_fets, *npass_fets ; elem_pr *wc_ppass_fets, *wc_npass_fets ; double *wc_width, 

♦wc loverw ; 

{ 

elem_pr elem ; node_pr other_node ; dlnodeptr fet_tree_ptr,pfet_tree_ptr; 

double fet_max_l_over_w,fet_min_l_over_w,fet_in_parallel; 

int is_npass, is_ppass, i, node_type_flag, nfet_vt_drop, pfet_vt_drop ; 

double node_width, total Joverw, stagejoverw, nscale, pscale ; elem_pr n_elem, p_elem ; double nfetjoverw, 
pfet loverw ; 
for_chan_fets(elem, node) { 
other node = EOtherChan(elem,node) ; 

if (NIsPassGateIn(other_node) && !NIsMarked(other_node) && NSame(other_node, ElnputChan(elem))) { 
push_node_set_mark(other_node) ; 

/* The calculation of cumulative l_over_w depends on the type of pass fet. */ 
find_passfets_between_nodes(node, other node, &n_elem, &p_elem) ; 
if (level<NUM_PASSCKT_FETS - 1) { 

if (n_elem) npass_fets[level + 1] = n_elem ; 

if (p_elem) ppass_fets[level + 1] = p_elem ; 

find_checklatch_driver_r(other_node, wc_node, type, wc_width, wcjoverw, ppass_fets, npass_fets, 
level+1 , wc_ppass_fets, wc npass fets, wc levels) ; 
} 

} end chan fets 

if (NIsPassGateOut(nbde)) return ; 

fet_tree_ptr = build_generic_tree(node,type,0,&node_type_flag); 

if (fet_tree_ptr) { 
combine_shared_diffusions(fet_tree_ptr,fet_tree_ptr); 

effective_w_calc_from_tree(fet_tree_ptr, &fet_max_l_over_w, &fet_min_l_over_w, &fet_in_parallel); 

node_width = DeviceL_ReqERC / fet_max_l_over_w ; 

free_fet_tree(fet_tree_ptr,fet_tree_ptr); 

else node_width = (type == NTYPE) ? CheckLatchDefaultNWidth_ReqERC : 
CheckLatchDefaultPWidth_ReqERC ; 

/* The total L/W for this path depends on a weighted sum of the L/W for the pass FETs along the path. It also 
depends on whether this is a pullup or pulldown path. */ 
pfet vt drop = nfet_vt_drop = FALSE ; 

if (type = PTYPE) totaljoverw = (DeviceL_ReqERC/node_width) * PMobility_ReqERC * 
CheckLatchPFETPassingVDD_ReqERC ; 
else totaljoverw = (DeviceL_ReqERC/node_width) ♦ CheckLatchNFETPassingGND_ReqERC ; 
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9i> 

1 for (i = NUM_PASSCKT_FETS - 1 ; i > 0; i--) { 

2 is_npass = (npass_fets[i] != NULL) ? TRUE : FALSE ; 

3 is_ppass = (ppass_fets[i] != NULL) ? TRUE : FALSE ; 

4 if (!is_ppass && !is_npass) continue ; 

5 if (is_ppass) { pfet_loverw = PMobility_ReqERC * ((ppass_fets[i])->len / (ppass_fets[i])->wid) ; } 

6 if (is npass) { nfetjoverw = (npass_fets[i])->len / (npass_fets[i])->wid ; } 

7 /* The L/W for this passfet stage depends on whether this is a pullup 

8 or pulldown path and on whether there has been a Vt drop along this path. */ 

9 if(type==NTYPE){ 

10 /* pulldown path */ 

1 1 pscale = pfet_vt_drop ? CheckLatchPFETPassingGND_Vt_ReqERC : CheckLatchPFETPassingGND_ReqERC ; 

1 2 nscale = nfet_vt_drop ? CheckLatchNFETPassingGND_Vt_ReqERC : CheckLatchNFETPassingGND_ReqERC ; 

13 } 

14 else { 

15 /* pullup path */ 

1 6 pscale = pfet_vt_drop ? CheckLatchPFETPassing VDD_Vt_ReqERC : CheckLatchPFETPassingVDD_ReqERC ; 

1 7 nscale = nfet_vt_drop ? CheckLatchNFETPassingVDD_Vt_ReqERC : CheckLatchNFETPassingVDD_ReqERC ; 

18 } 

1 9 pfet loverw *= pscale ; 
_ 20 nfet loverw *= nscale ; 
'^21 

22 if (is_npass && is_ppass) { stagejoverw = (nfetjoverw * pfet loverw) / (nfetjoverw + pfetjoverw) ; } 

23 else if (is npass && !is_ppass) { stagejoverw = nfet loverw ; } 
!~ 24 else { stagejoverw = pfetjoverw ; } 

'-' 25 total loverw += stagejoverw ; 

27 /* For the next set of pass fets, remember if there has been a Vt drop. */ 

' 28 if ( is_ppass && lis npass) pfet vt drop |= TRUE ; 

29 if (!is_ppass && is npass) nfet vt drop 1= TRUE ; 

^3 30 } 

31 /* If this current node is worse than the current worst offender, record the information. */ 

32 if (total loverw > *wc loverw) { 
uff 33 *wc_width = node width ; 

Q; 34 *wc_node = node ; 

i3 35 * wc loverw = total loverw ; 

36 for (i = 0; i < NUM_PASSCKT_FETS; i-H-) { 

37 wc_npass_fets[i] = npass_fets[i] ; 

38 wc_ppass_fets[i] = ppass_fets[i] ; 

39 } 

40 *wc levels = level ; 

41 } 

42 /* Remove passfet information that was recorded for this level. */ 

43 if(level<NUM_PASSCKT_FETS) { 

44 npass_fets[level] = ppass fets [level] = NULL ; 

45 } 

46 } 

47 /* Given a node that is the input to a latch, traverse over any other pass FETs and determine the weakest 

48 equivalent width FET that either pulls up or down the latch input. What is considered "weakest" has changed 

49 over time to try to match what checklatch classic calls the "weakest" path. This routine also keeps track of all the 

50 passfets that are encountered on the way to the worst case driver. It also keeps track of the number of passfet 

5 1 levels that were found in getting to the worst case driver.*/ 

52 void fmd_checklatch_driver(node, wc node, type, wc_width, wc_ppass_fets, wc_npass_fets, wcjevels) 

53 node_pr node, *wc_node ; int type, *wc levels ; double* wc width ; elem_pr *wc_ppass_fets, 

54 *wc_npass_fets ; 

55 { 

56 elem_pr npass_fets[NUM_PASSCKT_FETS], ppass_fets[NUM_PASSCKT_FETS] ; 

57 double wc loverw = 0.0 ; int i ; 

58 for (i = 0; i < NUM_PASSCKT_FETS; \++) { npass_fets[i] = ppass_fets[i] = NULL ; } 
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1 push_node_set_niark(node) ; 

2 find_checklatch_driver_r(node, wc_node, type, wc_width, &wc_loverw, ppass fets, npass fets, 0, 

3 wc_ppass_fets, wc npass fets, wc levels) ; 

4 clear node marksO ; 

5 } 

6 /* Return TRUE if this node can be determined to be the feedback node of a latch structure. */ 

7 int NIsFeedBack(node) 

8 node_pr node ; 

9 { 

1 0 eleni_pr elem ; int n feedback = FALSE, p feedback = FALSE ; 

1 1 if (!NIsLatch(node)) return FALSE ; 

12 for_gate_elems(elem, node) { 

13 if(EIsFeedback(elem)) 

1 4 if (ETypelsN(elem)) n_feedback = TRUE ; 

1 5 if (ETypelsP(elem)) p_feedback = TRUE ; 

16 } end_gate_elenis 

17 if(n_feedback&&p_feedback) return TRUE; 

1 8 else return FALSE ; 

19 } , 

,^ 20 /* Write one deck with 3 circuits in it for each latch node. This is the top level routine for creating the checklatch 

,Q 21 decks. */ 

i~ 22 check_latch_node(node) 

''J 23 node_prnode; 

24 { 

:fi 25 FILE *MYDECK ; elem_pr pullup_npass_fets[NUM_PASSCKT_FETS], 

p. 26 pullup_ppass_fets[NUM_PASSCKT_FETS] ; 

;f 27 elem_prpulldown_npass_fets[NUM_PASSCKT_FETS],pulldown_ppass_fets|>IUM_PASSCKT_FETS] ; 
■-^ 28 elem_pr elem; node_pr pdriver node = NULL, ndriver node = NULL ; 

L. 29 double m_w[NUM_CKLATCH_FETS], mJ[NUM_CKLATCH_FETS] ; int i, lmodel[NUM_CKLATCH_FETS] ; 
30 int puUupJevels = 0, pulldownjevels = 0 ; char message[MAXSTRING]; 



31 



32 /* Skip this node if it's the output of the forward inverter. */ 

33 if (NIsFeedBack(node)) return ; 
34 

35 for (i = 0; i < NUM_CKLATCH_FETS; { m_w[i] = 0.0; m_l[i] = DeviceL_ReqERC ; } 

36 for (i = 0; i < NUM_PASSCKT_FETS; \++) { pullup_npass_fets[i] = pullup_ppass_fets[i] = 

37 pulldown_npass_fets[i] = pulldown_ppass_fets[i] = NULL ; } 
38 

39 /* determine the fet widths and lengths for this node */ 

40 if(fmd_checklatch_latchfets(node,&m_w[0],&m_l[0])) return; 

41 ■ 

42 find_checklatch_driver(node, &pdriver_node, PTYPE, &m_w[6], pullup_ppass_fets, pullup_npass_fets, 

43 &pullup_levels) ; 

44 fmd_checklatch_driver(node, &ndriver_node, NTYPE, &m_w[5], pulldown_ppass_fets, pulldown_npass_fets, 

45 &pulIdown_levels) ; 

46 if (Ipdriver node || Indriver node) return ; 
47 

48 /* The NFETS have odd transistor numbers, the PFETs have even numbers. */ 

49 for (i = 1 ; i < NUM_CKLATCH_FETS; i+=2) lmodel[i] = m_l[i] > CheckLatchLongNLength ReqERC ? TRUE : 

50 FALSE ; 

51 for (i = 2; i < NUM_CKLATCH_FETS; i+=2) lmodel[i] = m_l[i] > CheckLatchLongPLength_ReqERC ? TRUE : 

52 FALSE ; 
53 

54 MYDECK = start_deck(CHECJCLATCH_SIM, node); 

55 declare_passfet_ckt(MYDECK, "pulldovra_passfet_ckt", pulldown_ppass_fets, pulldown_npass_fets ) ; 

56 declare_passfet_ckt(MYDECK, "pullup_passfet_ckt", pullup_ppass_fets, pullup_npass_fets ) ; 

57 declare_vth_ckt(MYDECK, Imodel) ; 

58 declare_setO_ckt(MYDECK, Imodel) ; 
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ill: 



i3- 



1 declare_setl_ckt(MYDECK, Imodel) ; 

2 add_checklatch_cotnments_to_deck(MYDECK, pulldown_ppass_fets, pulldown_npass_fets, 

3 pullup_ppass_fets, 

4 pullup_npass_fets, ndriver_node, pdriver_node) ; 
5 

6 /* Place a message about the total number of levels */ 

7 if ((puUupJevels >= NUM_PASSCKT_FETS) || (pulldownjevels >= NUM_PASSCKT_FETS)) { 

8 sprintf(message,"Model Error: Total pullup passfets %d Total pulldown passfets %d Model limit %d", 

9 pullupjevels, pulldownjevels, NUM_PASSCKT_FETS -1) ; 

10 add_comment_to_deck(MYDECK, message) ; 

11 } 
12 

13 add_ckt_header_to_deck(MYDECK, "cktl",CHECKLATCH_QUERY); 

14 fprintf(MYDECK,"Vl 100 0 dc=%.4e \n", CheckLatchSupplyVoltage ReqERC); 

15 add_vth_ckt_to_deck(MYDECK, m_w, mj) ; 

1 6 add_setO_ckt_to_deck(MYDECK, m_w, m_l) ; 

17 add_setl_ckt_to_deck(MYDECK, m_w, m_l) ; 

18 end_deck(MYDECK); 

19 } 
20 
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